home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / etc / emacs / site-start.d / 50dictionaries-common.el
Lisp/Scheme  |  2008-06-04  |  2KB  |  42 lines
  1. ;; File: startup.el.in
  2. ;; Description: Emacsen startup for dictionaries-common in Debian
  3. ;; Authors: Rafael LaboissiΦre <rafael@debian.org>
  4. ;;          Agustin Martin     <agmartin@debian.org>
  5. ;; Created on: Fri Oct 22 09:48:21 CEST 1999
  6.  
  7. (let ((skip-emacs-flavors-list '(emacs19
  8.                  emacs20
  9.                  emacs-snapshot))
  10.       (debian-dict-entries "/var/cache/dictionaries-common/emacsen-ispell-dicts.el"))
  11.   (if (member debian-emacs-flavor skip-emacs-flavors-list)
  12.       (message "Skipping dictionaries-common setup for %s" debian-emacs-flavor)
  13.  
  14.     (debian-pkg-add-load-path-item
  15.      (concat "/usr/share/"
  16.          (symbol-name debian-emacs-flavor)
  17.          "/site-lisp/dictionaries-common"))
  18.  
  19.     (autoload 'flyspell-word "flyspell" nil t)
  20.     (autoload 'flyspell-mode "flyspell" nil t)
  21.     (autoload 'flyspell-prog-mode "flyspell" nil t)
  22.  
  23.     ;; Load the Debian emacsen cache file, containing entries for each
  24.     ;; installed dictionary.
  25.     ;; Since this might result in a call to debian-ispell do this only if
  26.     ;; it exists, that is, if package is not removed
  27.  
  28.     (if (file-exists-p "/usr/share/emacs/site-lisp/dictionaries-common/debian-ispell.el")
  29.     (let ((coding-system-for-read 'raw-text)) ;; Read these as data streams
  30.       (load "debian-ispell" t)
  31.       (load debian-dict-entries t))
  32.       (message "Info: Package dictionaries-common removed but not purged."))))
  33.  
  34. ;;; Previous code for loading ispell.el and refreshing spell-checking
  35. ;;; pulldown menus has been removed from this file since it should no
  36. ;;; longer be needed.
  37.  
  38. ;;Local Variables:
  39. ;;mode: lisp
  40. ;;End:
  41.  
  42.